(define (hanoi n a b c)
  (if (> n 0)
      (begin
        (hanoi (- n 1) a c b)
        (display "Move disk from pole ")
        (display a)
        (display " to pole ")
        (display b)
        (newline)
        (hanoi (- n 1) c b a))
      #f))

(define t1 (hanoi 4 1 2 3))
